Option explicit
Dim number as Integer
Dim num,num2,ctr,nhigh,nlow as integer

Private sub cmdIdentify_click()
lstList.clear
Number = val(txtnumber.text)
For ctr = 1 to number
Num=val(Inputbox("EnterNtmber" + ctr))
Num2 = num
If ctr = 1 Then
Nlow = num
End if
If num < nlow then nlow= num
End if
If num2 > nhigh the nhigh = num2
End if
lstList.additem ctr + "." & num
Next ctr
lblHighest.Capti0n= nhigh
LblLowest.capti0n =nlow
End Sub